home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / MEMACS / Cmd / Func < prev    next >
Text File  |  1991-06-15  |  605b  |  27 lines
  1. ;    FUNC.CMD    Allow mainframes to simulate function
  2. ;            keys with ^C<n> and ^C shifted-<n>
  3. ;            Also allow the ` key to be META as well as ESC
  4.  
  5. bind-to-key execute-macro-21 ^C
  6. bind-to-key meta-prefix `
  7.  
  8. 21    store-macro
  9.     !if ¬ $pending
  10.         write-message "FN-"
  11.     !endif
  12.     set %rcchar >key
  13.     set %rcchar &sindex "1234567890!@#$%^&*()" %rcchar
  14.     !if &equ %rcchar 0
  15.         write-message "[Not Bound]"
  16.         !return
  17.     !endif
  18.     clear-message-line
  19.     set %rctmp "FN"
  20.     !if &gre %rcchar 10
  21.         set %rctmp &cat "S-" %rctmp
  22.     !endif
  23.     set %rcchar &mid "12345678901234567890" %rcchar 1
  24.     execute-command-line &bind &cat %rctmp %rcchar
  25. !endm
  26.  
  27.